home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_92.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  886 b   |  39 lines
  1. on prepareFrame
  2.   cursor(-1)
  3. end
  4.  
  5. on exitFrame
  6.   global lastTouch
  7.   LiveRollOver(103, 103)
  8.   set the loopBounds of sprite(110) to [500, 1000]
  9.   set f to 10
  10.   set touch to 0
  11.   repeat while f < 20
  12.     if rollOver(f) then
  13.       set touch to f
  14.     end if
  15.     set f to f + 1
  16.   end repeat
  17.   if (touch <> 0) and (touch <> lastTouch) then
  18.     set touc to touch - 9
  19.     set the loopBounds of sprite(110) to [30 * 60, 40 * 60]
  20.     set the movieTime of sprite 110 to 30 * 60
  21.   else
  22.     if touch = 0 then
  23.       if the loopBounds of sprite(110) <> [0, 0] then
  24.         set the loopBounds of sprite(110) to [0, 0]
  25.       end if
  26.     end if
  27.   end if
  28.   set lastTouch to touch
  29.   if rollOver(110) or (touch <> 0) then
  30.     if the movieRate of sprite 110 = 0 then
  31.       set the movieRate of sprite 110 to 1
  32.     end if
  33.   else
  34.     if the movieRate of sprite 110 = 1 then
  35.     end if
  36.   end if
  37.   go(the frame)
  38. end
  39.